home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 138 / Tiger_Disk_138_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ende ii_1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  553 b   |  16 lines
  1. 10 poke53280,.:poke53281,.:printchr$(147):s=54272:pokes+4,17:pokes+24,15
  2. 11 pokes+5,16:pokes+6,255:goto45
  3. 12 fora=1944to1983 step2:pokea,81:pokea,42
  4. 20 fori=0to5:rem"   "
  5. 25 print"[223][210][210][210][210][157][159][146][223]";
  6. 30 poke646,i*14:pokes+1,rnd(z)*2+(3*i)
  7. 35 pokes+4,16:    :poke53270,22:poke56325,55:next:next
  8. 40 poke646,2:foro=1to5:forp=10to14:forq=0to4:
  9. 41 poke1054,o:poke1056,p:poke1058,q:poke1060,o:next:next:next:poke53270,11
  10. 42 fort=1to1000:next:print"";:fort=1to750:next:end
  11. 45 print"   [206][206][206][206][206] [206]   [206] [206][206][206][206]  [206][206][206][206][206]"
  12. 46 print"   [206]     [206][206]  [206] [206]   [206] [206]"
  13. 47 print"   [206][206][206]   [206] [206] [206] [206]   [206] [206][206][206]"
  14. 48 print"   [206]     [206]  [206][206] [206]   [206] [206]"
  15. 49 print"   [206][206][206][206][206] [206]   [206] [206][206][206][206]  [206][206][206][206][206]":goto12
  16.